home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / misc / identify / identify_dev / arexx / system.ify < prev    next >
Text File  |  1999-05-14  |  4KB  |  110 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **  system.ify          rexxidentify.library demonstration      **
  4. **                                                              **
  5. ******************************************************************
  6. **
  7. **      (c) 1997 by Richard Körber -- All Rights Reserved
  8. **
  9. **      You may use this example freely for your own programs.
  10. **
  11. */
  12.  
  13.   /* Add the library functions */
  14. CALL AddLib("/libs/rexxidentify.library",0,-30,0)
  15. IF Word(ID_Release(),1)<5 THEN DO
  16.   SAY "This script requires at least rexxidentify.library release 5!"
  17.   EXIT
  18. END
  19.  
  20.   /* Get every information about the hardware */
  21. system    = ID_Hardware("SYSTEM",NOLOCALE)
  22. cpu       = ID_Hardware("CPU",NOLOCALE)
  23. fpu       = ID_Hardware("FPU",EMPTYNA,NOLOCALE)
  24. mmu       = ID_Hardware("MMU",EMPTYNA,NOLOCALE)
  25. osver     = ID_Hardware("OSVER",NOLOCALE)
  26. execver   = ID_Hardware("EXECVER",NOLOCALE)
  27. wbver     = ID_Hardware("WBVER",NOLOCALE)
  28. romsize   = ID_Hardware("ROMSIZE",NOLOCALE)
  29. chipset   = ID_Hardware("CHIPSET",NOLOCALE)
  30. gfxsys    = ID_Hardware("GFXSYS",NOLOCALE)
  31. chipram   = ID_Hardware("CHIPRAM",NOLOCALE)
  32. fastram   = ID_Hardware("FASTRAM",NOLOCALE)
  33. ram       = ID_Hardware("RAM",NOLOCALE)
  34. setpatch  = ID_Hardware("SETPATCHVER",NOLOCALE)
  35. audiosys  = ID_Hardware("AUDIOSYS",NOLOCALE)
  36. osnr      = ID_Hardware("OSNR",NOLOCALE)
  37. vmmchip   = ID_Hardware("VMMCHIPRAM",NOLOCALE)
  38. vmmfast   = ID_Hardware("VMMFASTRAM",NOLOCALE)
  39. vmmram    = ID_Hardware("VMMRAM",NOLOCALE)
  40. plnchip   = ID_Hardware("PLNCHIPRAM",NOLOCALE)
  41. plnfast   = ID_Hardware("PLNFASTRAM",NOLOCALE)
  42. plnram    = ID_Hardware("PLNRAM",NOLOCALE)
  43. vbr       = ID_Hardware("VBR",NOLOCALE)
  44. lastalert = ID_Hardware("LASTALERT",NOLOCALE)
  45. vblank    = ID_Hardware("VBLANKFREQ",NOLOCALE)
  46. power     = ID_Hardware("POWERFREQ",NOLOCALE)
  47. eclock    = ID_Hardware("ECLOCK",NOLOCALE)
  48. slowram   = ID_Hardware("SLOWRAM",NOLOCALE)
  49. gary      = ID_Hardware("GARY",NOLOCALE)
  50. ramsey    = ID_Hardware("RAMSEY",NOLOCALE)
  51. battclock = ID_Hardware("BATTCLOCK",NOLOCALE)
  52. cplanar   = ID_Hardware("CHUNKYPLANAR",NOLOCALE)
  53. powerpc   = ID_Hardware("POWERPC",EMPTYNA,NOLOCALE)
  54. ppcclock  = ID_Hardware("PPCCLOCK",NOLOCALE)
  55. cpurev    = ID_Hardware("CPUREV",EMPTYNA,NOLOCALE)
  56. cpuclock  = ID_Hardware("CPUCLOCK",NOLOCALE)
  57. fpuclock  = ID_Hardware("FPUCLOCK",NOLOCALE)
  58.  
  59.   /* Some nice formatting */
  60. IF Left(system,1)='A'                   /* English grammar... */
  61.   THEN system = 'an '||system
  62.   ELSE system = 'a '||system
  63.  
  64. chipram   = Right(chipram,7)            /* 7 chars wide */
  65. fastram   = Right(fastram,7)
  66. ram       = Right(ram,7)
  67. vmmchip   = Right(vmmchip,7)
  68. vmmfast   = Right(vmmfast,7)
  69. vmmram    = Right(vmmram,7)
  70. plnchip   = Right(plnchip,7)
  71. plnfast   = Right(plnfast,7)
  72. plnram    = Right(plnram,7)
  73.  
  74. IF Left(lastalert,8)='FFFFFFFF'         /* Do we have an alert code? */
  75.   THEN lastalert = "no alert yet... :)"
  76.  
  77.  
  78.   /* Now tell the user what we've found... */
  79. SAY "This is" system "with" chipset "Chipset."
  80. IF cpurev~=""
  81.   THEN SAY "It has a" cpu "CPU (Revision" cpurev||"), clocked at" cpuclock
  82.   ELSE SAY "It has a" cpu "CPU, clocked at" cpuclock
  83. IF fpu~=""
  84.   THEN SAY "The" fpu "FPU is clocked at" fpuclock||"."
  85. IF mmu~=""
  86.   THEN SAY "It has also a" mmu "MMU."
  87. IF powerpc~=""
  88.   THEN SAY "And it is powered by a" powerpc " PowerPC (clocked at" ppcclock||")."
  89. SAY ""
  90. SAY "Versions:     OS" osver "(known as" osnr ||") Exec" execver "Workbench" wbver ||"."
  91. SAY "              SetPatch" setpatch ||", ROM size" romsize
  92. SAY ""
  93. SAY "Multimedia:   Graphics" gfxsys ||", Audio" audiosys
  94. SAY ""
  95. SAY "Specialities: VBR" vbr ||", Gary" gary ||", Ramsey" ramsey ||", Clock" battclock
  96. SAY "              Chunky-to-planar chip:" cplanar
  97. SAY "              E-Clock" eclock ||", VBlank" vblank ||", Power" power
  98. SAY ""
  99. SAY "Memory:                 CHIP   FAST  TOTAL    (SLOW" slowram ||")"
  100. SAY "              REAL   " plnchip plnfast plnram
  101. SAY "              VIRTUAL" vmmchip vmmfast vmmram
  102. SAY "              TOTAL  " chipram fastram ram
  103. SAY ""
  104. SAY "Last alert:  " lastalert
  105. SAY ""
  106.  
  107. EXIT
  108.  
  109.  
  110.